unit uExceptionSistemaBanco;

interface

uses
  System.StrUtils, System.SysUtils;

type
  ESistemaBanco = class abstract(Exception)
  private
  public
    constructor create(Str : String);
  end;

implementation

constructor ESistemaBanco.create(Str : String);
begin
  self.Message := Str;
end;

end.
